home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 0159 / vb.zip / SEXAMPLE.FRM < prev    next >
Text File  |  1996-01-16  |  13KB  |  392 lines
  1. VERSION 2.00
  2. Begin Form examples 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Selector Examples"
  6.    ClientHeight    =   5910
  7.    ClientLeft      =   1515
  8.    ClientTop       =   2235
  9.    ClientWidth     =   8775
  10.    Height          =   6315
  11.    Left            =   1455
  12.    LinkTopic       =   "Form1"
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   5910
  15.    ScaleWidth      =   8775
  16.    Top             =   1890
  17.    Width           =   8895
  18.    Begin SELECTOR Selector5 
  19.       Angle           =   320
  20.       AutoAlign       =   -1  'True
  21.       AutoAngle       =   -1  'True
  22.       AutoAngleConfine=   -1  'True
  23.       AutoOffset      =   -1  'True
  24.       AutoOffsetDistance=   1
  25.       AutoOffsetStyle =   0  ' 0 - Circular 
  26.       AutoRadius      =   1
  27.       AutoStartAngle  =   320
  28.       AutoStopAngle   =   40
  29.       AVersion        =   0
  30.       BackgroundColor =   &H00000000&
  31.       BevelInner      =   0  ' 0 - None
  32.       BevelOuter      =   2  ' 2 - Inset
  33.       BevelWidth      =   7
  34.       BorderType      =   1  ' 1 - Bevel
  35.       BorderWidth     =   2
  36.       FontID          =   0
  37.       FrameColor      =   &H00000000&
  38.       FrameScaleX     =   0
  39.       FrameScaleY     =   0
  40.       FrameStyle      =   0  ' 0 - None
  41.       Height          =   2775
  42.       Highlight       =   0   'False
  43.       HighlightColor  =   &H00000000&
  44.       KnobColor       =   &H00808080&
  45.       KnobOriginX     =   0
  46.       KnobOriginY     =   0
  47.       KnobRadius      =   0.6
  48.       KnobStyle       =   0  ' 0 - Cicular
  49.       KnobUserDefined =   ""
  50.       Left            =   3540
  51.       LineDisplay     =   -1  'True
  52.       LineInnerRadius =   0.7
  53.       LineThickness   =   1
  54.       MarkUserDefined =   ""
  55.       MouseControl    =   -1  'True
  56.       OutlineAlign    =   0  ' 0 - Left 
  57.       OutlineColor    =   &H00000000&
  58.       OutlineTitle    =   ""
  59.       OutlineWidth    =   0
  60.       Radius          =   0
  61.       TabIndex        =   6
  62.       Top             =   120
  63.       Value           =   0
  64.       Width           =   2175
  65.       XScale          =   0
  66.       YScale          =   0
  67.       ZLoad           =   SEXAMPLE.FRX:0000
  68.    End
  69.    Begin SELECTOR Selector4 
  70.       Angle           =   200
  71.       AutoAlign       =   -1  'True
  72.       AutoAngle       =   -1  'True
  73.       AutoAngleConfine=   0   'False
  74.       AutoOffset      =   -1  'True
  75.       AutoOffsetDistance=   1
  76.       AutoOffsetStyle =   0  ' 0 - Circular 
  77.       AutoRadius      =   1.1
  78.       AutoStartAngle  =   200
  79.       AutoStopAngle   =   160
  80.       AVersion        =   0
  81.       BackgroundColor =   &H00FFFFFF&
  82.       BevelInner      =   1  ' 1 - Raised
  83.       BevelOuter      =   2  ' 2 - Inset
  84.       BevelWidth      =   2
  85.       BorderType      =   2  ' 2 - Outline
  86.       BorderWidth     =   2
  87.       FontID          =   0
  88.       FrameColor      =   &H00000000&
  89.       FrameScaleX     =   0
  90.       FrameScaleY     =   0
  91.       FrameStyle      =   0  ' 0 - None
  92.       Height          =   2895
  93.       Highlight       =   -1  'True
  94.       HighlightColor  =   &H000000FF&
  95.       KnobColor       =   &H00808080&
  96.       KnobOriginX     =   0
  97.       KnobOriginY     =   0
  98.       KnobRadius      =   0.6
  99.       KnobStyle       =   2  ' 2 - Complex
  100.       KnobUserDefined =   ""
  101.       Left            =   2940
  102.       LineDisplay     =   -1  'True
  103.       LineInnerRadius =   0.8
  104.       LineThickness   =   1
  105.       MarkUserDefined =   ""
  106.       MouseControl    =   -1  'True
  107.       OutlineAlign    =   2  ' 2 - Center
  108.       OutlineColor    =   &H00000000&
  109.       OutlineTitle    =   "Combination"
  110.       OutlineWidth    =   0
  111.       Radius          =   0
  112.       TabIndex        =   5
  113.       Top             =   3000
  114.       Value           =   0
  115.       Width           =   2835
  116.       XScale          =   0
  117.       YScale          =   0
  118.       ZLoad           =   SEXAMPLE.FRX:01B6
  119.    End
  120.    Begin SELECTOR Selector7 
  121.       Angle           =   30
  122.       AutoAlign       =   -1  'True
  123.       AutoAngle       =   -1  'True
  124.       AutoAngleConfine=   -1  'True
  125.       AutoOffset      =   -1  'True
  126.       AutoOffsetDistance=   1
  127.       AutoOffsetStyle =   1  ' 1 - Horizontal 
  128.       AutoRadius      =   0.8
  129.       AutoStartAngle  =   30
  130.       AutoStopAngle   =   150
  131.       AVersion        =   0
  132.       BackgroundColor =   &H00FFFF00&
  133.       BevelInner      =   1  ' 1 - Raised
  134.       BevelOuter      =   1  ' 1 - Raised
  135.       BevelWidth      =   2
  136.       BorderType      =   1  ' 1 - Bevel
  137.       BorderWidth     =   6
  138.       FontID          =   0
  139.       FrameColor      =   &H00000000&
  140.       FrameScaleX     =   0
  141.       FrameScaleY     =   0
  142.       FrameStyle      =   0  ' 0 - None
  143.       Height          =   1980
  144.       Highlight       =   -1  'True
  145.       HighlightColor  =   &H00000000&
  146.       KnobColor       =   &H00000000&
  147.       KnobOriginX     =   -0.2
  148.       KnobOriginY     =   0
  149.       KnobRadius      =   0.6
  150.       KnobStyle       =   3  ' 3 - User Defined
  151.       KnobUserDefined =   "0,1100,  350,700,  100,700,  200,-200,  0,-100,  -200,-200,  -100,700,  -350,700"
  152.       Left            =   5820
  153.       LineDisplay     =   -1  'True
  154.       LineInnerRadius =   0.4
  155.       LineThickness   =   1
  156.       MarkUserDefined =   ""
  157.       MouseControl    =   -1  'True
  158.       OutlineAlign    =   0  ' 0 - Left 
  159.       OutlineColor    =   &H00000000&
  160.       OutlineTitle    =   ""
  161.       OutlineWidth    =   0
  162.       Radius          =   0
  163.       TabIndex        =   4
  164.       Top             =   3915
  165.       Value           =   0
  166.       Width           =   2880
  167.       XScale          =   0
  168.       YScale          =   0
  169.       ZLoad           =   SEXAMPLE.FRX:0988
  170.    End
  171.    Begin SELECTOR Selector6 
  172.       Angle           =   1
  173.       AutoAlign       =   -1  'True
  174.       AutoAngle       =   -1  'True
  175.       AutoAngleConfine=   0   'False
  176.       AutoOffset      =   0   'False
  177.       AutoOffsetDistance=   1
  178.       AutoOffsetStyle =   2  ' 2 - Vertical
  179.       AutoRadius      =   0.8
  180.       AutoStartAngle  =   1
  181.       AutoStopAngle   =   179
  182.       AVersion        =   0
  183.       BackgroundColor =   &H00C0DCC0&
  184.       BevelInner      =   2  ' 2 - Inset
  185.       BevelOuter      =   2  ' 2 - Inset
  186.       BevelWidth      =   2
  187.       BorderType      =   1  ' 1 - Bevel
  188.       BorderWidth     =   2
  189.       FontID          =   0
  190.       FrameColor      =   &H00000000&
  191.       FrameScaleX     =   0
  192.       FrameScaleY     =   0
  193.       FrameStyle      =   0  ' 0 - None
  194.       Height          =   1965
  195.       Highlight       =   -1  'True
  196.       HighlightColor  =   &H0000FFFF&
  197.       KnobColor       =   &H00808000&
  198.       KnobOriginX     =   -0.2
  199.       KnobOriginY     =   0
  200.       KnobRadius      =   0.5
  201.       KnobStyle       =   0  ' 0 - Cicular
  202.       KnobUserDefined =   ""
  203.       Left            =   5820
  204.       LineDisplay     =   -1  'True
  205.       LineInnerRadius =   0.4
  206.       LineThickness   =   1
  207.       MarkUserDefined =   ""
  208.       MouseControl    =   -1  'True
  209.       OutlineAlign    =   0  ' 0 - Left 
  210.       OutlineColor    =   &H00000000&
  211.       OutlineTitle    =   ""
  212.       OutlineWidth    =   0
  213.       Radius          =   0
  214.       TabIndex        =   3
  215.       Top             =   1935
  216.       Value           =   0
  217.       Width           =   2910
  218.       XScale          =   0
  219.       YScale          =   0
  220.       ZLoad           =   SEXAMPLE.FRX:0C12
  221.    End
  222.    Begin SELECTOR Selector3 
  223.       Angle           =   30
  224.       AutoAlign       =   -1  'True
  225.       AutoAngle       =   -1  'True
  226.       AutoAngleConfine=   -1  'True
  227.       AutoOffset      =   -1  'True
  228.       AutoOffsetDistance=   1
  229.       AutoOffsetStyle =   1  ' 1 - Horizontal 
  230.       AutoRadius      =   0.8
  231.       AutoStartAngle  =   30
  232.       AutoStopAngle   =   150
  233.       AVersion        =   0
  234.       BackgroundColor =   &H00C0C0C0&
  235.       BevelInner      =   0  ' 0 - None
  236.       BevelOuter      =   1  ' 1 - Raised
  237.       BevelWidth      =   2
  238.       BorderType      =   1  ' 1 - Bevel
  239.       BorderWidth     =   2
  240.       FontID          =   2
  241.       FrameColor      =   &H00000000&
  242.       FrameScaleX     =   0
  243.       FrameScaleY     =   0
  244.       FrameStyle      =   0  ' 0 - None
  245.       Height          =   1830
  246.       Highlight       =   0   'False
  247.       HighlightColor  =   &H00000000&
  248.       KnobColor       =   &H00800080&
  249.       KnobOriginX     =   -1.5
  250.       KnobOriginY     =   -0.4
  251.       KnobRadius      =   0.5
  252.       KnobStyle       =   2  ' 2 - Complex
  253.       KnobUserDefined =   ""
  254.       Left            =   5820
  255.       LineDisplay     =   -1  'True
  256.       LineInnerRadius =   0.4
  257.       LineThickness   =   1
  258.       MarkUserDefined =   ""
  259.       MouseControl    =   -1  'True
  260.       OutlineAlign    =   0  ' 0 - Left 
  261.       OutlineColor    =   &H00000000&
  262.       OutlineTitle    =   ""
  263.       OutlineWidth    =   0
  264.       Radius          =   0
  265.       TabIndex        =   2
  266.       Top             =   60
  267.       Value           =   0
  268.       Width           =   2895
  269.       XScale          =   0
  270.       YScale          =   0
  271.       ZLoad           =   SEXAMPLE.FRX:0E08
  272.    End
  273.    Begin SELECTOR Selector2 
  274.       Angle           =   181
  275.       AutoAlign       =   0   'False
  276.       AutoAngle       =   -1  'True
  277.       AutoAngleConfine=   0   'False
  278.       AutoOffset      =   -1  'True
  279.       AutoOffsetDistance=   1
  280.       AutoOffsetStyle =   0  ' 0 - Circular 
  281.       AutoRadius      =   0.7
  282.       AutoStartAngle  =   181
  283.       AutoStopAngle   =   360
  284.       AVersion        =   0
  285.       BackgroundColor =   &H00C0C0C0&
  286.       BevelInner      =   0  ' 0 - None
  287.       BevelOuter      =   0  ' 0 - None
  288.       BevelWidth      =   2
  289.       BorderType      =   1  ' 1 - Bevel
  290.       BorderWidth     =   0
  291.       FontID          =   0
  292.       FrameColor      =   &H00C0C0C0&
  293.       FramePicture    =   SEXAMPLE.FRX:1054
  294.       FrameScaleX     =   1.1
  295.       FrameScaleY     =   1.1
  296.       FrameStyle      =   1  ' 1 - Circle
  297.       Height          =   2835
  298.       Highlight       =   -1  'True
  299.       HighlightColor  =   &H00FF0000&
  300.       KnobColor       =   &H00000000&
  301.       KnobOriginX     =   0
  302.       KnobOriginY     =   0
  303.       KnobRadius      =   0.27
  304.       KnobStyle       =   0  ' 0 - Cicular
  305.       KnobUserDefined =   ""
  306.       Left            =   60
  307.       LineDisplay     =   -1  'True
  308.       LineInnerRadius =   0.35
  309.       LineThickness   =   2
  310.       MarkUserDefined =   ""
  311.       MouseControl    =   -1  'True
  312.       OutlineAlign    =   0  ' 0 - Left 
  313.       OutlineColor    =   &H00000000&
  314.       OutlineTitle    =   ""
  315.       OutlineWidth    =   0
  316.       Radius          =   0
  317.       TabIndex        =   1
  318.       Top             =   3000
  319.       Value           =   0
  320.       Width           =   2775
  321.       XScale          =   0
  322.       YScale          =   0
  323.       ZLoad           =   SEXAMPLE.FRX:568E
  324.    End
  325.    Begin SELECTOR Selector1 
  326.       Angle           =   287.273
  327.       AutoAlign       =   0   'False
  328.       AutoAngle       =   -1  'True
  329.       AutoAngleConfine=   -1  'True
  330.       AutoOffset      =   0   'False
  331.       AutoOffsetDistance=   0.6
  332.       AutoOffsetStyle =   1  ' 1 - Horizontal 
  333.       AutoRadius      =   0.7
  334.       AutoStartAngle  =   200
  335.       AutoStopAngle   =   160
  336.       AVersion        =   0
  337.       BackgroundColor =   &H00C0C0C0&
  338.       BevelInner      =   2  ' 2 - Inset
  339.       BevelOuter      =   1  ' 1 - Raised
  340.       BevelWidth      =   2
  341.       BorderType      =   1  ' 1 - Bevel
  342.       BorderWidth     =   7
  343.       FontID          =   0
  344.       FrameColor      =   &H00C0C0C0&
  345.       FrameScaleX     =   1.1
  346.       FrameScaleY     =   1.1
  347.       FrameStyle      =   0  ' 0 - None
  348.       Height          =   2760
  349.       Highlight       =   -1  'True
  350.       HighlightColor  =   &H00008000&
  351.       KnobColor       =   &H00000000&
  352.       KnobOriginX     =   0
  353.       KnobOriginY     =   0
  354.       KnobRadius      =   0.3
  355.       KnobStyle       =   1  ' 1 - Pointer
  356.       KnobUserDefined =   ""
  357.       Left            =   120
  358.       LineDisplay     =   -1  'True
  359.       LineInnerRadius =   0.35
  360.       LineThickness   =   2
  361.       MarkUserDefined =   ""
  362.       MouseControl    =   -1  'True
  363.       OutlineAlign    =   0  ' 0 - Left 
  364.       OutlineColor    =   &H00000000&
  365.       OutlineTitle    =   ""
  366.       OutlineWidth    =   0
  367.       Radius          =   0
  368.       TabIndex        =   0
  369.       Top             =   120
  370.       Value           =   3
  371.       Width           =   3270
  372.       XScale          =   0
  373.       YScale          =   0
  374.       ZLoad           =   SEXAMPLE.FRX:584E
  375.    End
  376. End
  377.  
  378. Sub Selector3_Change ()
  379.  
  380.     selector3.SelectionID = selector3.Value
  381.     selector3.CaptionFontID = selector3.SelectionFontID
  382.     
  383. End Sub
  384.  
  385. Sub Selector7_Change ()
  386.  
  387.     selector7.SelectionID = selector7.Value
  388.     selector7.BackgroundColor = selector7.SelectionColor
  389.  
  390. End Sub
  391.  
  392.